home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / LOGGING / 3090.ZIP / BEAM.PRG < prev    next >
Text File  |  1987-03-10  |  1KB  |  42 lines
  1. * BEAM.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 10/01/83
  4. * REV 03/08/87 FOR USE ON PC
  5. SET TALK OFF
  6. USE BEAM INDEX BEAM
  7. SET INDEX TO BEAM
  8. DO WHILE .T.
  9. CLEAR
  10. @ 0,0 SAY 'ENTER [ END ] TO EXIT'
  11. @ 0,30 SAY '****BEAM HEADINGS****'
  12. ACCEPT 'PREFIX: ' TO MPREFIX
  13. STORE UPPER(MPREFIX) TO MPREFIX
  14.    IF MPREFIX = 'END'
  15.       SET TALK ON
  16.       CLEAR
  17.       RETURN
  18.    ENDIF
  19. FIND &MPREFIX
  20.    IF (EOF() .OR. BOF())
  21.       @ 12,40 SAY 'PREFIX NOT FOUND'
  22.       WAIT
  23.       LOOP
  24.       CLEAR
  25.    ENDIF
  26.      IF PREFIX = MPREFIX
  27.      @ 5,0 SAY 'PREFIX'
  28.      @ 5,7  SAY 'BEAM'
  29.      @ 5,12 SAY 'COUNTRY'
  30.      @ 5,43 SAY 'ITUZONE'
  31.      @ 5,51 SAY 'DXZONE'
  32.      @ 5,59 SAY 'DXCC'
  33.      DO WHILE PREFIX = MPREFIX .AND..NOT.EOF()
  34.         DISPLAY OFF
  35.         SKIP
  36.      ENDDO
  37.      WAIT
  38.    ENDDO
  39. RELEASE MPREFIX
  40. CLEAR
  41. ENDDO
  42.